home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / caltp.arc / CALENDAR.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-28  |  1KB  |  52 lines
  1. program calendar;
  2.  
  3. {$I Calendar.p}
  4.  
  5. Type
  6.   String6 = String[6];
  7.   String7 = String[7];
  8.   String8 = String[8];
  9.   String9 = String[9];
  10.  
  11. var
  12.   ch : char;
  13.   y1,y2,m1,m2,d1,d2 : Integer;
  14.  
  15. begin
  16.   repeat
  17.     writeln;
  18.     writeln('What is first date?');
  19.     write('The Year : ');
  20.     read(y1);
  21.     write('  The Month : ');
  22.     read(m1);
  23.     write('  The Day : ');
  24.     readln(d1);
  25. {    Writeln('That day was a ',weekdays[trunc(weekday(daynumber(y1,m1,d1)))];}
  26.  
  27.     writeln('What is second date?');
  28.     write('The Year : ');
  29.     read(y2);
  30.     write('  The Month : ');
  31.     read(m2);
  32.     write('  The Day : ');
  33.     read(d2);
  34. {    Writeln('That day was a ',weekdays[trunc(weekday(daynumber(y2,m2,d2)))];}
  35.     writeln;
  36.     Writeln('There are ',
  37.              (daynumber(y2,m2,d2) - daynumber(y1,m1,d1)):8:0,
  38.              ' days between those days.');
  39.     writeln;
  40.     writeln;
  41.     writeln;
  42.     write('Again?');
  43.     read (kbd,ch);
  44.     ch := upcase(ch);
  45.     writeln(ch);
  46.   until ch <> 'Y';
  47.   writeln('Goodbye!');
  48. end.
  49.  
  50.  
  51.  
  52.